home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.circles < prev    next >
Text File  |  2007-02-28  |  409b  |  25 lines
  1. // DELETE "EXT.CIRCLES"
  2. // SAVE   "EXT.CIRCLES"
  3. //  BY ─AVID ╘URNER - 5/9/85
  4. //
  5. //─RAW CIRCLES OF MANY COLORS
  6. //
  7. ╨╥╧├ CIRCLES ├╠╧╙┼─
  8.   ╘╥┴╨ ┼╙├-
  9.   ╒╙┼ TURTLE
  10.   HIDETURTLE
  11.   GRAPHICSCREEN(0)
  12.   BACKGROUND(1)
  13.   PENCOLOR(11)
  14.   ╞╧╥ X:=0 ╘╧ 200 ╙╘┼╨ 10 ─╧
  15.     ╞╧╥ C:=0 ╘╧ 6 ╙╘┼╨ 2 ─╧
  16.       PENCOLOR(C)
  17.       CIRCLE(0,0,X)
  18.     ┼╬─╞╧╥ C
  19.   ┼╬─╞╧╥ X
  20.   ╘╥┴╨ ┼╙├+
  21. ┼╬─╨╥╧├ CIRCLES
  22. //
  23. CIRCLES
  24. ┼╬─ "╨RESS ╞7 TO SEE CIRCLES"
  25.